home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGSCAL / TBUTIL2.LZH / EQUIP.INC < prev    next >
Text File  |  1984-07-13  |  808b  |  29 lines
  1. PROGRAM Equip;
  2. {  This program performs Bios interrupt hex 11 the equipment check.
  3. {  Upon return, the bits of AX contain the needed information.
  4. {  AX is passed to the DecBin procedure which converts the integer
  5. {  into a character array that contains the binary form of AX.
  6. {  The equipment attached to the PC can be determined from the binary
  7. {  form.
  8. {  Danny Cavasos         June 1984  }
  9. TYPE
  10.   RecPack = RECORD
  11.     AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS: INTEGER;
  12.   END;
  13.   Btype=ARRAY[1..17] OF CHAR;
  14. VAR
  15.   IntParm         :RecPack;
  16.   Binary          :Btype;
  17.   i,Decimal       :INTEGER;
  18. {$i decbin.pas}
  19. BEGIN
  20.   WITH IntParm DO
  21.     BEGIN
  22.       INTR($11,IntParm);
  23.       Decimal:=AX;
  24.     END;
  25.   WRITELN(Decimal);
  26.   DecBin(Decimal,Binary);
  27.   FOR i:=2 TO 17 DO WRITE(Binary[i]);
  28. END.
  29.